(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 14.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[     48787,       1286]
NotebookOptionsPosition[     43306,       1178]
NotebookOutlinePosition[     43745,       1195]
CellTagsIndexPosition[     43702,       1192]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Utility Functions", "Section",
 CellChangeTimes->{{3.962591208555727*^9, 
  3.962591254323307*^9}},ExpressionUUID->"fb080f1c-4f18-3842-ba34-\
612d7ce1e6f2"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"u", "[", 
    RowBox[{
    "\[Sigma]_", ",", "\[Alpha]_", ",", "n_", ",", "p_", ",", "t_", ",", 
     "m_"}], "]"}], ":=", 
   RowBox[{"\[Sigma]", "+", 
    RowBox[{"\[Alpha]", "*", "n"}], "-", "p", "-", 
    RowBox[{"t", "*", "m"}]}]}], " ", 
  RowBox[{"(*", 
   RowBox[{
   "\[Alpha]\:662f\[Alpha]\:6216\[Beta]", ",", "n\:662f\:6570\:91cf", ",", 
    "t\:662fz\:6216q"}], "*)"}], "\[IndentingNewLine]"}]], "Input",
 CellChangeTimes->{{3.961794882527809*^9, 3.961794891489977*^9}, {
  3.961794986475697*^9, 3.9617951599176235`*^9}, {3.9617957652547646`*^9, 
  3.9617958228781624`*^9}},
 CellLabel->"In[1]:=",ExpressionUUID->"670565b0-2745-7940-9f25-1ce8412da6af"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"u", "[", 
   RowBox[{
   "\[Sigma]x", ",", "\[Alpha]", ",", "yA", ",", "pA", ",", "z", ",", "x"}], 
   "]"}], 
  RowBox[{"(*", 
   RowBox[{"u", 
    RowBox[{"(", 
     RowBox[{"x", ";", "A"}], ")"}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.961795169149374*^9, 3.961795171046116*^9}, {
  3.961795835469267*^9, 3.961795846230795*^9}, {3.962044354229542*^9, 
  3.9620443687135353`*^9}, {3.962044407542078*^9, 3.962044412323456*^9}, {
  3.962044496089268*^9, 3.962044496318153*^9}, {3.962044913496469*^9, 
  3.9620449275263844`*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"3109ff47-9610-f24b-b339-93226a554405"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "pA"}], "-", 
  RowBox[{"x", " ", "z"}], "+", 
  RowBox[{"yA", " ", "\[Alpha]"}], "+", "\[Sigma]x"}]], "Output",
 CellChangeTimes->{
  3.96179517242914*^9, 3.961795848885988*^9, 3.9619693254139347`*^9, 
   3.962043442996704*^9, 3.9620444162913933`*^9, 3.962044499241476*^9, {
   3.962044892592314*^9, 3.96204492952683*^9}, 3.962051061981579*^9, 
   3.9621335018198185`*^9, 3.962591571655205*^9},
 CellLabel->"Out[2]=",ExpressionUUID->"3fe9a6d7-0189-a142-96a8-d8fcd4cd2124"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"u", "[", 
   RowBox[{"\[Sigma]x", ",", "\[Alpha]", ",", 
    RowBox[{"Y", "-", "yB"}], ",", "pB", ",", "z", ",", 
    RowBox[{"1", "-", "x"}]}], "]"}], 
  RowBox[{"(*", 
   RowBox[{"u", 
    RowBox[{"(", 
     RowBox[{"x", ";", "B"}], ")"}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.961795127356207*^9, 3.9617951300439777`*^9}, {
   3.961795180283188*^9, 3.9617952446505814`*^9}, 3.961795394517208*^9, {
   3.96179585270656*^9, 3.961795858210554*^9}, {3.962044422333343*^9, 
   3.962044430102932*^9}, {3.962044502578022*^9, 3.962044502832964*^9}, {
   3.962044838705118*^9, 3.962044847225445*^9}, {3.9620449384214554`*^9, 
   3.962044943318269*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"ecf37400-b462-1648-83b7-dc98d91d3794"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "pB"}], "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", "x"}], ")"}], " ", "z"}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"Y", "-", "yB"}], ")"}], " ", "\[Alpha]"}], "+", 
  "\[Sigma]x"}]], "Output",
 CellChangeTimes->{3.961795247815909*^9, 3.961795862035525*^9, 
  3.961969328654583*^9, 3.962043445704848*^9, 3.962044433976755*^9, 
  3.9620445051284504`*^9, 3.9620448562034264`*^9, 3.962044894835424*^9, 
  3.9620449453609047`*^9, 3.962051062031491*^9, 3.962133501853407*^9, 
  3.9625915716886253`*^9},
 CellLabel->"Out[3]=",ExpressionUUID->"2a3abdf6-28ec-214c-8fa6-751c20d60a85"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"u", "[", 
   RowBox[{
   "\[Sigma]y", ",", "\[Beta]", ",", "xA", ",", "rA", ",", "q", ",", "y"}], 
   "]"}], 
  RowBox[{"(*", 
   RowBox[{"u", 
    RowBox[{"(", 
     RowBox[{"y", ";", "A"}], ")"}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.9617953470045795`*^9, 3.96179548090883*^9}, {
  3.961795512361624*^9, 3.961795565151766*^9}, {3.961795876481941*^9, 
  3.9617959311183243`*^9}, {3.961796007903618*^9, 3.961796031901535*^9}, {
  3.962044437479868*^9, 3.962044444875263*^9}, {3.962044507670639*^9, 
  3.9620445128377876`*^9}, {3.9620449495767384`*^9, 3.9620449598760376`*^9}, {
  3.962045010156624*^9, 3.962045015069948*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"e73ed0d8-3fe4-ca40-82c3-d5ac7f8f9886"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "rA"}], "-", 
  RowBox[{"q", " ", "y"}], "+", 
  RowBox[{"xA", " ", "\[Beta]"}], "+", "\[Sigma]y"}]], "Output",
 CellChangeTimes->{
  3.961796034706957*^9, 3.961969330983097*^9, 3.9620434484812584`*^9, 
   3.962044447050604*^9, 3.962044514945812*^9, {3.962044957642666*^9, 
   3.962044961370577*^9}, 3.962045016360571*^9, 3.962051062079172*^9, 
   3.962133501860201*^9, 3.962591571697483*^9},
 CellLabel->"Out[4]=",ExpressionUUID->"554a8121-e9b1-564f-8b9d-f38fe757c262"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"u", "[", 
   RowBox[{"\[Sigma]y", ",", "\[Beta]", ",", 
    RowBox[{"1", "-", "xB"}], ",", "rB", ",", "q", ",", 
    RowBox[{"Y", "-", "y"}]}], "]"}], 
  RowBox[{"(*", 
   RowBox[{"u", 
    RowBox[{"(", 
     RowBox[{"y", ";", "B"}], ")"}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.961796043448314*^9, 3.9617960819692535`*^9}, {
  3.9620445182262383`*^9, 3.962044528101897*^9}, {3.962045023289093*^9, 
  3.962045029649912*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"99bdc6d7-0dc0-5946-bfdd-8369c67bc491"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "rB"}], "-", 
  RowBox[{"q", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", "y"}], "+", "Y"}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{"1", "-", "xB"}], ")"}], " ", "\[Beta]"}], "+", 
  "\[Sigma]y"}]], "Output",
 CellChangeTimes->{3.961796084952175*^9, 3.961969333025295*^9, 
  3.962043450734501*^9, 3.962044530141474*^9, 3.962045031180122*^9, 
  3.962051062123291*^9, 3.9621335018897896`*^9, 3.9625915717279015`*^9},
 CellLabel->"Out[5]=",ExpressionUUID->"b9878801-db59-504c-ba07-2af331534d09"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"u", "[", 
   RowBox[{
    RowBox[{"2", "\[Sigma]x"}], ",", "\[Alpha]", ",", "Y", ",", 
    RowBox[{"pA", "+", "pB"}], ",", "z", ",", "1"}], "]"}], 
  RowBox[{"(*", 
   RowBox[{"u", 
    RowBox[{"(", 
     RowBox[{"x", ";", 
      RowBox[{
       RowBox[{"A", "&"}], "B"}]}], ")"}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.961796093827093*^9, 3.96179613146328*^9}, {
  3.9617961993631077`*^9, 3.961796234055187*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"5d32904f-bbb5-8b4f-bb36-c2fa067cb57b"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "pA"}], "-", "pB", "-", "z", "+", 
  RowBox[{"Y", " ", "\[Alpha]"}], "+", 
  RowBox[{"2", " ", "\[Sigma]x"}]}]], "Output",
 CellChangeTimes->{3.96179623635656*^9, 3.961969335747751*^9, 
  3.962043452869201*^9, 3.962044593691204*^9, 3.9620510621687336`*^9, 
  3.9621335019200997`*^9, 3.9625915717608376`*^9},
 CellLabel->"Out[6]=",ExpressionUUID->"599bd803-f8af-ef4b-9460-5a2d6fdb0280"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"u", "[", 
   RowBox[{
    RowBox[{"2", "\[Sigma]y"}], ",", "\[Beta]", ",", "1", ",", 
    RowBox[{"rA", "+", "rB"}], ",", "q", ",", "Y"}], "]"}], 
  RowBox[{"(*", 
   RowBox[{"u", 
    RowBox[{"(", 
     RowBox[{"y", ";", 
      RowBox[{
       RowBox[{"A", "&"}], "B"}]}], ")"}]}], "*)"}]}]], "Input",
 CellChangeTimes->{{3.961796251764866*^9, 3.961796267159481*^9}, {
  3.9617963049741325`*^9, 3.9617963666747875`*^9}},
 CellLabel->"In[7]:=",ExpressionUUID->"92b8c5ca-2962-cc49-b1d3-b66eb82809d2"],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", "rA"}], "-", "rB", "-", 
  RowBox[{"q", " ", "Y"}], "+", "\[Beta]", "+", 
  RowBox[{"2", " ", "\[Sigma]y"}]}]], "Output",
 CellChangeTimes->{3.961796368967282*^9, 3.961969337822438*^9, 
  3.9620434554829597`*^9, 3.962044595713356*^9, 3.9620510622148*^9, 
  3.962133501949602*^9, 3.962591571794609*^9},
 CellLabel->"Out[7]=",ExpressionUUID->"8ec248ff-3e45-644a-8b0a-74482d5ac51b"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Indifferent Consumers", "Section",
 CellChangeTimes->{{3.9625913627936134`*^9, 
  3.962591371089199*^9}},ExpressionUUID->"070dd501-7f3e-7147-aada-\
cca4da7bb3c6"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"xAhat", "[", 
   RowBox[{
   "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "pA_", 
    ",", "pB_", ",", "z_", ",", "yBhat_", ",", "yAhat_", ",", "q_", ",", 
    "\[Beta]_", ",", "rA_", ",", "rB_"}], "]"}], "=", 
  RowBox[{"xAhat", "/.", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{
          RowBox[{"2", "\[Sigma]x"}], ",", "\[Alpha]", ",", "Y", ",", 
          RowBox[{"pA", "+", "pB"}], ",", "z", ",", "1"}], "]"}], "-", 
        RowBox[{"u", "[", 
         RowBox[{"\[Sigma]x", ",", "\[Alpha]", ",", 
          RowBox[{"Y", "-", "yBhat"}], ",", "pB", ",", "z", ",", 
          RowBox[{"1", "-", "xAhat"}]}], "]"}]}], "==", "0"}], ",", "xAhat"}],
      "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.961796388232682*^9, 3.961796408830221*^9}, {
   3.961796439708488*^9, 3.961796541795967*^9}, {3.9617967130632973`*^9, 
   3.961796749105871*^9}, {3.961796781846386*^9, 3.9617968994140625`*^9}, {
   3.961796931069947*^9, 3.9617969510105495`*^9}, {3.961797692635395*^9, 
   3.961797702564446*^9}, {3.9620440374700584`*^9, 3.96204405612393*^9}, {
   3.962044165378381*^9, 3.962044166575917*^9}, {3.962044247841337*^9, 
   3.962044248601233*^9}, {3.9620445599276905`*^9, 3.962044569965278*^9}, {
   3.962044602615799*^9, 3.962044614624906*^9}, 3.962045061183962*^9},
 CellLabel->"In[8]:=",ExpressionUUID->"4aeeeca2-80de-ef43-b694-c81a806f132d"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "pA"}], "+", 
   RowBox[{"yBhat", " ", "\[Alpha]"}], "+", "\[Sigma]x"}], "z"]], "Output",
 CellChangeTimes->{
  3.961796967098982*^9, 3.961797706075032*^9, 3.961969341140175*^9, 
   3.9620434589515114`*^9, {3.962044585416033*^9, 3.9620445981886463`*^9}, 
   3.962044637141823*^9, 3.9620450799763527`*^9, 3.962051062260451*^9, 
   3.962133501981751*^9, 3.962591571831148*^9},
 CellLabel->"Out[8]=",ExpressionUUID->"6dfc819e-8682-8f43-ad5b-af676c0a48b1"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"xBhat", "[", 
   RowBox[{
   "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "pA_", 
    ",", "pB_", ",", "z_", ",", "yBhat_", ",", "yAhat_", ",", "q_", ",", 
    "\[Beta]_", ",", "rA_", ",", "rB_"}], "]"}], "=", 
  RowBox[{"xBhat", "/.", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{
          RowBox[{"2", "\[Sigma]x"}], ",", "\[Alpha]", ",", "Y", ",", 
          RowBox[{"pA", "+", "pB"}], ",", "z", ",", "1"}], "]"}], "-", 
        RowBox[{"u", "[", 
         RowBox[{
         "\[Sigma]x", ",", "\[Alpha]", ",", "yAhat", ",", "pA", ",", "z", ",",
           "xBhat"}], "]"}]}], "==", "0"}], ",", "xBhat"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.961797093560528*^9, 3.961797193183826*^9}, {
   3.961797579475991*^9, 3.9617975819408245`*^9}, 3.961797712897291*^9, {
   3.962045123710243*^9, 3.962045149201183*^9}},
 CellLabel->"In[9]:=",ExpressionUUID->"d716037c-e532-c942-844f-e2904edaa450"],

Cell[BoxData[
 FractionBox[
  RowBox[{"pB", "+", "z", "-", 
   RowBox[{"Y", " ", "\[Alpha]"}], "+", 
   RowBox[{"yAhat", " ", "\[Alpha]"}], "-", "\[Sigma]x"}], "z"]], "Output",
 CellChangeTimes->{3.961797201411122*^9, 3.9617975854305096`*^9, 
  3.961797715439348*^9, 3.961969343477028*^9, 3.962043461823601*^9, 
  3.962045157385669*^9, 3.962051062311455*^9, 3.96213350201195*^9, 
  3.9625915718688335`*^9},
 CellLabel->"Out[9]=",ExpressionUUID->"ac971304-2f23-3a49-ab59-998485c29b2b"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"yAhat", "[", 
   RowBox[{
   "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "pA_", 
    ",", "pB_", ",", "z_", ",", "xAhat_", ",", "xBhat_", ",", "q_", ",", 
    "\[Beta]_", ",", "rA_", ",", "rB_"}], "]"}], "=", 
  RowBox[{"yAhat", "/.", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{
          RowBox[{"2", "\[Sigma]y"}], ",", "\[Beta]", ",", "1", ",", 
          RowBox[{"rA", "+", "rB"}], ",", "q", ",", "Y"}], "]"}], "-", 
        RowBox[{"u", "[", 
         RowBox[{"\[Sigma]y", ",", "\[Beta]", ",", 
          RowBox[{"1", "-", "xBhat"}], ",", "rB", ",", "q", ",", 
          RowBox[{"Y", "-", "yAhat"}]}], "]"}]}], "==", "0"}], ",", "yAhat"}],
      "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.96179723659923*^9, 3.961797237867476*^9}, {
   3.961797311389097*^9, 3.9617973331604958`*^9}, {3.9617973965905857`*^9, 
   3.961797464839428*^9}, {3.961797571040652*^9, 3.9617976144991627`*^9}, 
   3.9617977183691*^9, 3.961797996115477*^9, {3.962045169645757*^9, 
   3.9620452120944424`*^9}},
 CellLabel->"In[10]:=",ExpressionUUID->"0f77b9f7-6d6a-d24f-9e59-8212aea8fc7b"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{"-", "rA"}], "+", 
   RowBox[{"xBhat", " ", "\[Beta]"}], "+", "\[Sigma]y"}], "q"]], "Output",
 CellChangeTimes->{
  3.961797669236237*^9, 3.961797720664686*^9, 3.9617979977254295`*^9, 
   3.9619693461901207`*^9, 3.962043464462049*^9, {3.962045200707926*^9, 
   3.962045214482681*^9}, 3.962051062358631*^9, 3.962133502043654*^9, 
   3.9625915718993225`*^9},
 CellLabel->"Out[10]=",ExpressionUUID->"3735066f-ddad-2746-b6de-1e3468d96e1c"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"yBhat", "[", 
   RowBox[{
   "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "pA_", 
    ",", "pB_", ",", "z_", ",", "yB_", ",", "yA_", ",", "q_", ",", "\[Beta]_",
     ",", "rA_", ",", "rB_"}], "]"}], "=", 
  RowBox[{"yBhat", "/.", 
   RowBox[{
    RowBox[{"Solve", "[", 
     RowBox[{
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{
          RowBox[{"2", "\[Sigma]y"}], ",", "\[Beta]", ",", "1", ",", 
          RowBox[{"rA", "+", "rB"}], ",", "q", ",", "Y"}], "]"}], "-", 
        RowBox[{"u", "[", 
         RowBox[{
         "\[Sigma]y", ",", "\[Beta]", ",", "xAhat", ",", "rA", ",", "q", ",", 
          "yBhat"}], "]"}]}], "==", "0"}], ",", "yBhat"}], "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.961798009195709*^9, 3.961798068187819*^9}, {
  3.962045233908418*^9, 3.962045247934807*^9}},
 CellLabel->"In[11]:=",ExpressionUUID->"fac2a9da-1722-e446-b9f4-1085badaa6db"],

Cell[BoxData[
 FractionBox[
  RowBox[{"rB", "+", 
   RowBox[{"q", " ", "Y"}], "-", "\[Beta]", "+", 
   RowBox[{"xAhat", " ", "\[Beta]"}], "-", "\[Sigma]y"}], "q"]], "Output",
 CellChangeTimes->{3.9620460692827797`*^9, 3.962051062403319*^9, 
  3.962133502074059*^9, 3.9625915719334087`*^9},
 CellLabel->"Out[11]=",ExpressionUUID->"d66d8da9-fff4-3047-87e9-7bc2fe42aaff"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"xAhatSol", "[", 
     RowBox[{
     "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "pA_",
       ",", "pB_", ",", "z_", ",", "q_", ",", "\[Beta]_", ",", "rA_", ",", 
      "rB_"}], "]"}], ",", 
    RowBox[{"xBhatSol", "[", 
     RowBox[{
     "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "pA_",
       ",", "pB_", ",", "z_", ",", "q_", ",", "\[Beta]_", ",", "rA_", ",", 
      "rB_"}], "]"}], ",", 
    RowBox[{"yAhatSol", "[", 
     RowBox[{
     "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "pA_",
       ",", "pB_", ",", "z_", ",", "q_", ",", "\[Beta]_", ",", "rA_", ",", 
      "rB_"}], "]"}], ",", 
    RowBox[{"yBhatSol", "[", 
     RowBox[{
     "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "pA_",
       ",", "pB_", ",", "z_", ",", "q_", ",", "\[Beta]_", ",", "rA_", ",", 
      "rB_"}], "]"}]}], "}"}], "=", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"xA", ",", "xB", ",", "yA", ",", "yB"}], "}"}], "/.", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{
            RowBox[{"2", "\[Sigma]x"}], ",", "\[Alpha]", ",", "Y", ",", 
            RowBox[{"pA", "+", "pB"}], ",", "z", ",", "1"}], "]"}], "-", 
          RowBox[{"u", "[", 
           RowBox[{"\[Sigma]x", ",", "\[Alpha]", ",", 
            RowBox[{"Y", "-", "yB"}], ",", "pB", ",", "z", ",", 
            RowBox[{"1", "-", "xA"}]}], "]"}]}], "==", "0"}], "&&", 
        RowBox[{
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{
            RowBox[{"2", "\[Sigma]x"}], ",", "\[Alpha]", ",", "Y", ",", 
            RowBox[{"pA", "+", "pB"}], ",", "z", ",", "1"}], "]"}], "-", 
          RowBox[{"u", "[", 
           RowBox[{
           "\[Sigma]x", ",", "\[Alpha]", ",", "yA", ",", "pA", ",", "z", ",", 
            "xB"}], "]"}]}], "==", "0"}], "&&", 
        RowBox[{
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{
            RowBox[{"2", "\[Sigma]y"}], ",", "\[Beta]", ",", "1", ",", 
            RowBox[{"rA", "+", "rB"}], ",", "q", ",", "Y"}], "]"}], "-", 
          RowBox[{"u", "[", 
           RowBox[{"\[Sigma]y", ",", "\[Beta]", ",", 
            RowBox[{"1", "-", "xB"}], ",", "rB", ",", "q", ",", 
            RowBox[{"Y", "-", "yA"}]}], "]"}]}], "==", "0"}], "&&", 
        RowBox[{
         RowBox[{
          RowBox[{"u", "[", 
           RowBox[{
            RowBox[{"2", "\[Sigma]y"}], ",", "\[Beta]", ",", "1", ",", 
            RowBox[{"rA", "+", "rB"}], ",", "q", ",", "Y"}], "]"}], "-", 
          RowBox[{"u", "[", 
           RowBox[{
           "\[Sigma]y", ",", "\[Beta]", ",", "xA", ",", "rA", ",", "q", ",", 
            "yB"}], "]"}]}], "==", "0"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"xA", ",", "xB", ",", "yA", ",", "yB"}], "}"}]}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.9620460642424297`*^9, 3.962046445172262*^9}, {
  3.962046483775606*^9, 3.962046484785091*^9}, {3.9620470752302628`*^9, 
  3.962047091362479*^9}},
 CellLabel->"In[12]:=",ExpressionUUID->"e24e975d-6f6d-1544-953e-3e72ac4b9069"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "pA"}], " ", "q"}], "+", 
     RowBox[{"rB", " ", "\[Alpha]"}], "+", 
     RowBox[{"q", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Y", " ", "\[Alpha]"}], "+", "\[Sigma]x"}], ")"}]}], "-", 
     RowBox[{"\[Alpha]", " ", 
      RowBox[{"(", 
       RowBox[{"\[Beta]", "+", "\[Sigma]y"}], ")"}]}]}], 
    RowBox[{
     RowBox[{"q", " ", "z"}], "-", 
     RowBox[{"\[Alpha]", " ", "\[Beta]"}]}]], ",", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "rA"}], " ", "\[Alpha]"}], "+", 
     RowBox[{"q", " ", 
      RowBox[{"(", 
       RowBox[{"pB", "+", "z", "-", 
        RowBox[{"Y", " ", "\[Alpha]"}], "-", "\[Sigma]x"}], ")"}]}], "+", 
     RowBox[{"\[Alpha]", " ", "\[Sigma]y"}]}], 
    RowBox[{
     RowBox[{"q", " ", "z"}], "-", 
     RowBox[{"\[Alpha]", " ", "\[Beta]"}]}]], ",", 
   FractionBox[
    RowBox[{
     RowBox[{
      RowBox[{"-", "rA"}], " ", "z"}], "+", 
     RowBox[{"\[Beta]", " ", 
      RowBox[{"(", 
       RowBox[{"pB", "+", "z", "-", 
        RowBox[{"Y", " ", "\[Alpha]"}], "-", "\[Sigma]x"}], ")"}]}], "+", 
     RowBox[{"z", " ", "\[Sigma]y"}]}], 
    RowBox[{
     RowBox[{"q", " ", "z"}], "-", 
     RowBox[{"\[Alpha]", " ", "\[Beta]"}]}]], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"rB", " ", "z"}], "+", 
     RowBox[{"q", " ", "Y", " ", "z"}], "-", 
     RowBox[{"\[Beta]", " ", 
      RowBox[{"(", 
       RowBox[{"pA", "+", "z", "-", "\[Sigma]x"}], ")"}]}], "-", 
     RowBox[{"z", " ", "\[Sigma]y"}]}], 
    RowBox[{
     RowBox[{"q", " ", "z"}], "-", 
     RowBox[{"\[Alpha]", " ", "\[Beta]"}]}]]}], "}"}]], "Output",
 CellChangeTimes->{3.9620463713827534`*^9, 3.962046449125364*^9, 
  3.962046488806045*^9, 3.962047096372818*^9, 3.962051062695629*^9, 
  3.9621335023229036`*^9, 3.9625915721449146`*^9},
 CellLabel->"Out[12]=",ExpressionUUID->"fe46002a-3919-ca4f-97d3-cb66d0bd96e4"]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{"xAhatD", "[", 
   RowBox[{
   "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "pA_", 
    ",", "pB_", ",", "z_", ",", "q_", ",", "\[Beta]_", ",", "rA_", ",", 
    "rB_"}], "]"}], ":=", 
  RowBox[{"xAhatSol", "[", 
   RowBox[{
   "\[Sigma]x", ",", "\[Sigma]y", ",", "\[Alpha]", ",", "Y", ",", "pA", ",", 
    "pB", ",", "z", ",", "q", ",", "\[Beta]", ",", "rA", ",", "rB"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"xBhatD", "[", 
   RowBox[{
   "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "pA_", 
    ",", "pB_", ",", "z_", ",", "q_", ",", "\[Beta]_", ",", "rA_", ",", 
    "rB_"}], "]"}], ":=", 
  RowBox[{"xBhatSol", "[", 
   RowBox[{
   "\[Sigma]x", ",", "\[Sigma]y", ",", "\[Alpha]", ",", "Y", ",", "pA", ",", 
    "pB", ",", "z", ",", "q", ",", "\[Beta]", ",", "rA", ",", "rB"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"yAhatD", "[", 
   RowBox[{
   "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "pA_", 
    ",", "pB_", ",", "z_", ",", "q_", ",", "\[Beta]_", ",", "rA_", ",", 
    "rB_"}], "]"}], ":=", 
  RowBox[{"yAhatSol", "[", 
   RowBox[{
   "\[Sigma]x", ",", "\[Sigma]y", ",", "\[Alpha]", ",", "Y", ",", "pA", ",", 
    "pB", ",", "z", ",", "q", ",", "\[Beta]", ",", "rA", ",", "rB"}], 
   "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"yBhatD", "[", 
   RowBox[{
   "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "pA_", 
    ",", "pB_", ",", "z_", ",", "q_", ",", "\[Beta]_", ",", "rA_", ",", 
    "rB_"}], "]"}], ":=", 
  RowBox[{"yBhatSol", "[", 
   RowBox[{
   "\[Sigma]x", ",", "\[Sigma]y", ",", "\[Alpha]", ",", "Y", ",", "pA", ",", 
    "pB", ",", "z", ",", "q", ",", "\[Beta]", ",", "rA", ",", "rB"}], 
   "]"}]}]}], "Input",
 CellChangeTimes->{{3.9620470992914104`*^9, 3.962047135786175*^9}, {
  3.962047253044231*^9, 3.962047345823465*^9}},
 CellLabel->"In[13]:=",ExpressionUUID->"eaa6156c-4c66-ef48-a8e7-e644ec1759e6"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Profits", "Section",
 CellChangeTimes->{{3.962591381644907*^9, 
  3.962591390899061*^9}},ExpressionUUID->"f30bab89-ff7c-df45-aa3b-\
62a0842463ca"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"ProfitA", "[", 
   RowBox[{
   "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "pA_", 
    ",", "pB_", ",", "z_", ",", "q_", ",", "\[Beta]_", ",", "rA_", ",", 
    "rB_"}], "]"}], "=", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{
    RowBox[{"pA", "*", 
     RowBox[{"xAhatD", "[", 
      RowBox[{
      "\[Sigma]x", ",", "\[Sigma]y", ",", "\[Alpha]", ",", "Y", ",", "pA", 
       ",", "pB", ",", "z", ",", "q", ",", "\[Beta]", ",", "rA", ",", "rB"}], 
      "]"}]}], "+", 
    RowBox[{"rA", "*", 
     RowBox[{"yAhatD", "[", 
      RowBox[{
      "\[Sigma]x", ",", "\[Sigma]y", ",", "\[Alpha]", ",", "Y", ",", "pA", 
       ",", "pB", ",", "z", ",", "q", ",", "\[Beta]", ",", "rA", ",", "rB"}], 
      "]"}]}]}], "]"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ProfitB", "[", 
   RowBox[{
   "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "pA_", 
    ",", "pB_", ",", "z_", ",", "q_", ",", "\[Beta]_", ",", "rA_", ",", 
    "rB_"}], "]"}], "=", 
  RowBox[{"FullSimplify", "[", 
   RowBox[{
    RowBox[{"pB", "*", 
     RowBox[{"(", 
      RowBox[{"1", "-", 
       RowBox[{"xBhatD", "[", 
        RowBox[{
        "\[Sigma]x", ",", "\[Sigma]y", ",", "\[Alpha]", ",", "Y", ",", "pA", 
         ",", "pB", ",", "z", ",", "q", ",", "\[Beta]", ",", "rA", ",", 
         "rB"}], "]"}]}], ")"}]}], "+", 
    RowBox[{"rB", "*", 
     RowBox[{"(", 
      RowBox[{"Y", "-", 
       RowBox[{"yBhatD", "[", 
        RowBox[{
        "\[Sigma]x", ",", "\[Sigma]y", ",", "\[Alpha]", ",", "Y", ",", "pA", 
         ",", "pB", ",", "z", ",", "q", ",", "\[Beta]", ",", "rA", ",", 
         "rB"}], "]"}]}], ")"}]}]}], "]"}]}]}], "Input",
 CellChangeTimes->{{3.961798121398548*^9, 3.961798235780928*^9}, {
  3.961798342471131*^9, 3.961798360532295*^9}, {3.962045319098345*^9, 
  3.962045425044321*^9}, {3.9620466461385937`*^9, 3.962046653099682*^9}, {
  3.96204692880357*^9, 3.962047008259701*^9}, {3.962047359847229*^9, 
  3.9620474010080147`*^9}, {3.962050982391926*^9, 3.9620510049161263`*^9}, {
  3.96205108658074*^9, 3.9620510919199944`*^9}},
 CellLabel->"In[17]:=",ExpressionUUID->"287828de-3953-2148-ae4e-5eb78dbcdafa"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["pA", "2"]}], " ", "q"}], "+", 
   RowBox[{"rA", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "rA"}], " ", "z"}], "+", 
      RowBox[{"\[Beta]", " ", 
       RowBox[{"(", 
        RowBox[{"pB", "+", "z", "-", 
         RowBox[{"Y", " ", "\[Alpha]"}], "-", "\[Sigma]x"}], ")"}]}], "+", 
      RowBox[{"z", " ", "\[Sigma]y"}]}], ")"}]}], "+", 
   RowBox[{"pA", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"rB", " ", "\[Alpha]"}], "+", 
      RowBox[{"q", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Y", " ", "\[Alpha]"}], "+", "\[Sigma]x"}], ")"}]}], "-", 
      RowBox[{"\[Alpha]", " ", 
       RowBox[{"(", 
        RowBox[{"\[Beta]", "+", "\[Sigma]y"}], ")"}]}]}], ")"}]}]}], 
  RowBox[{
   RowBox[{"q", " ", "z"}], "-", 
   RowBox[{"\[Alpha]", " ", "\[Beta]"}]}]]], "Output",
 CellChangeTimes->{
  3.961798449054104*^9, 3.961969352350975*^9, 3.962043471814867*^9, 
   3.962045428086643*^9, 3.962047403321275*^9, 3.962051021948496*^9, {
   3.962051071529482*^9, 3.962051095327263*^9}, 3.96213350247711*^9, 
   3.962591572274803*^9},
 CellLabel->"Out[17]=",ExpressionUUID->"a5bd1948-2afc-7f44-8635-82f69e71ae20"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{
    RowBox[{"-", 
     SuperscriptBox["pB", "2"]}], " ", "q"}], "+", 
   RowBox[{"rB", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "rB"}], " ", "z"}], "+", 
      RowBox[{"\[Beta]", " ", 
       RowBox[{"(", 
        RowBox[{"pA", "+", "z", "-", 
         RowBox[{"Y", " ", "\[Alpha]"}], "-", "\[Sigma]x"}], ")"}]}], "+", 
      RowBox[{"z", " ", "\[Sigma]y"}]}], ")"}]}], "+", 
   RowBox[{"pB", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"rA", " ", "\[Alpha]"}], "+", 
      RowBox[{"q", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Y", " ", "\[Alpha]"}], "+", "\[Sigma]x"}], ")"}]}], "-", 
      RowBox[{"\[Alpha]", " ", 
       RowBox[{"(", 
        RowBox[{"\[Beta]", "+", "\[Sigma]y"}], ")"}]}]}], ")"}]}]}], 
  RowBox[{
   RowBox[{"q", " ", "z"}], "-", 
   RowBox[{"\[Alpha]", " ", "\[Beta]"}]}]]], "Output",
 CellChangeTimes->{
  3.961798449054104*^9, 3.961969352350975*^9, 3.962043471814867*^9, 
   3.962045428086643*^9, 3.962047403321275*^9, 3.962051021948496*^9, {
   3.962051071529482*^9, 3.962051095327263*^9}, 3.96213350247711*^9, 
   3.9625915723831387`*^9},
 CellLabel->"Out[18]=",ExpressionUUID->"99599424-47a3-9949-979a-f670cec176d8"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Profit Max->Best Responses", "Section",
 CellChangeTimes->{{3.962591415514717*^9, 
  3.9625914401841106`*^9}},ExpressionUUID->"206c5056-07b9-b540-aee0-\
29b7d2987973"],

Cell[CellGroupData[{

Cell[BoxData[{
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"pABR", "[", 
     RowBox[{
     "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "pA_",
       ",", "pB_", ",", "z_", ",", "q_", ",", "\[Beta]_", ",", "rA_", ",", 
      "rB_"}], "]"}], ",", 
    RowBox[{"rABR", "[", 
     RowBox[{
     "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "pA_",
       ",", "pB_", ",", "z_", ",", "q_", ",", "\[Beta]_", ",", "rA_", ",", 
      "rB_"}], "]"}]}], "}"}], "=", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"pA", ",", "rA"}], "}"}], "/.", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"ProfitA", "[", 
            RowBox[{
            "\[Sigma]x", ",", "\[Sigma]y", ",", "\[Alpha]", ",", "Y", ",", 
             "pA", ",", "pB", ",", "z", ",", "q", ",", "\[Beta]", ",", "rA", 
             ",", "rB"}], "]"}], ",", "pA"}], "]"}], "==", "0"}], "&&", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"ProfitA", "[", 
            RowBox[{
            "\[Sigma]x", ",", "\[Sigma]y", ",", "\[Alpha]", ",", "Y", ",", 
             "pA", ",", "pB", ",", "z", ",", "q", ",", "\[Beta]", ",", "rA", 
             ",", "rB"}], "]"}], ",", "rA"}], "]"}], "==", "0"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"pA", ",", "rA"}], "}"}]}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"ProfitA", "[", 
   RowBox[{
   "\[Sigma]x", ",", "\[Sigma]y", ",", "\[Alpha]", ",", "Y", ",", "\[Sigma]x",
     ",", "pBeqm", ",", "z", ",", "q", ",", "\[Beta]", ",", "rA", ",", 
    "rBeqm"}], "]"}], " ", 
  RowBox[{"(*", 
   RowBox[{"Get", " ", "rA", " ", "from", " ", "maximizing", " ", "it"}], 
   "*)"}]}]}], "Input",
 CellChangeTimes->{{3.9617985154102535`*^9, 3.961798536326399*^9}, {
  3.9617986028839664`*^9, 3.961798732366387*^9}, {3.961798766689533*^9, 
  3.961798771872376*^9}, {3.961798850802464*^9, 3.9617988966045036`*^9}, {
  3.961799278030489*^9, 3.9617993042877464`*^9}, {3.961799348851307*^9, 
  3.961799352180528*^9}, {3.961799382507313*^9, 3.961799389367586*^9}, {
  3.9617994271370316`*^9, 3.961799599998396*^9}, {3.9617996372333775`*^9, 
  3.961799664332033*^9}, {3.961969360706627*^9, 3.961969372737391*^9}, {
  3.962045444280233*^9, 3.962045499280096*^9}, {3.962047413827917*^9, 
  3.9620474327454243`*^9}, {3.9623092021752243`*^9, 3.9623092466948433`*^9}},
 CellLabel->"In[19]:=",ExpressionUUID->"5e8bcf18-5645-9d45-a88a-b5798abcbb00"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"rB", " ", "\[Alpha]"}], "+", 
     RowBox[{"q", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Y", " ", "\[Alpha]"}], "+", "\[Sigma]x"}], ")"}]}], "-", 
     RowBox[{"\[Alpha]", " ", 
      RowBox[{"(", 
       RowBox[{"\[Beta]", "+", "\[Sigma]y"}], ")"}]}]}], 
    RowBox[{"2", " ", "q"}]], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"pB", " ", "\[Beta]"}], "-", 
     RowBox[{"\[Beta]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Y", " ", "\[Alpha]"}], "+", "\[Sigma]x"}], ")"}]}], "+", 
     RowBox[{"z", " ", 
      RowBox[{"(", 
       RowBox[{"\[Beta]", "+", "\[Sigma]y"}], ")"}]}]}], 
    RowBox[{"2", " ", "z"}]]}], "}"}]], "Output",
 CellChangeTimes->{3.961799668554655*^9, 3.961969377026984*^9, 
  3.962045503156263*^9, 3.962047453401764*^9, 3.962051112003084*^9, 
  3.9621335027162056`*^9, 3.9625915724975853`*^9},
 CellLabel->"Out[19]=",ExpressionUUID->"ba44b71e-6a22-b249-a3cc-407d98609928"],

Cell[BoxData[
 FractionBox[
  RowBox[{
   RowBox[{
    RowBox[{"-", "q"}], " ", 
    SuperscriptBox["\[Sigma]x", "2"]}], "+", 
   RowBox[{"rA", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "rA"}], " ", "z"}], "+", 
      RowBox[{"\[Beta]", " ", 
       RowBox[{"(", 
        RowBox[{"pBeqm", "+", "z", "-", 
         RowBox[{"Y", " ", "\[Alpha]"}], "-", "\[Sigma]x"}], ")"}]}], "+", 
      RowBox[{"z", " ", "\[Sigma]y"}]}], ")"}]}], "+", 
   RowBox[{"\[Sigma]x", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"rBeqm", " ", "\[Alpha]"}], "+", 
      RowBox[{"q", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Y", " ", "\[Alpha]"}], "+", "\[Sigma]x"}], ")"}]}], "-", 
      RowBox[{"\[Alpha]", " ", 
       RowBox[{"(", 
        RowBox[{"\[Beta]", "+", "\[Sigma]y"}], ")"}]}]}], ")"}]}]}], 
  RowBox[{
   RowBox[{"q", " ", "z"}], "-", 
   RowBox[{"\[Alpha]", " ", "\[Beta]"}]}]]], "Output",
 CellChangeTimes->{3.961799668554655*^9, 3.961969377026984*^9, 
  3.962045503156263*^9, 3.962047453401764*^9, 3.962051112003084*^9, 
  3.9621335027162056`*^9, 3.962591572502598*^9},
 CellLabel->"Out[20]=",ExpressionUUID->"18bac0b4-f2cb-e641-8dd2-d7c4f4ec5579"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"pBBR", "[", 
     RowBox[{
     "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "pA_",
       ",", "pB_", ",", "z_", ",", "q_", ",", "\[Beta]_", ",", "rA_", ",", 
      "rB_"}], "]"}], ",", 
    RowBox[{"rBBR", "[", 
     RowBox[{
     "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "pA_",
       ",", "pB_", ",", "z_", ",", "q_", ",", "\[Beta]_", ",", "rA_", ",", 
      "rB_"}], "]"}]}], "}"}], "=", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"pB", ",", "rB"}], "}"}], "/.", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"ProfitB", "[", 
            RowBox[{
            "\[Sigma]x", ",", "\[Sigma]y", ",", "\[Alpha]", ",", "Y", ",", 
             "pA", ",", "pB", ",", "z", ",", "q", ",", "\[Beta]", ",", "rA", 
             ",", "rB"}], "]"}], ",", "pB"}], "]"}], "==", "0"}], "&&", 
        RowBox[{
         RowBox[{"D", "[", 
          RowBox[{
           RowBox[{"ProfitB", "[", 
            RowBox[{
            "\[Sigma]x", ",", "\[Sigma]y", ",", "\[Alpha]", ",", "Y", ",", 
             "pA", ",", "pB", ",", "z", ",", "q", ",", "\[Beta]", ",", "rA", 
             ",", "rB"}], "]"}], ",", "rB"}], "]"}], "==", "0"}]}], ",", 
       RowBox[{"{", 
        RowBox[{"pB", ",", "rB"}], "}"}]}], "]"}], "[", 
     RowBox[{"[", "1", "]"}], "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.962047465548353*^9, 3.9620476147570553`*^9}},
 CellLabel->"In[21]:=",ExpressionUUID->"ffd973ad-bde9-6242-ab8c-b055aca7147c"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"rA", " ", "\[Alpha]"}], "+", 
     RowBox[{"q", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Y", " ", "\[Alpha]"}], "+", "\[Sigma]x"}], ")"}]}], "-", 
     RowBox[{"\[Alpha]", " ", 
      RowBox[{"(", 
       RowBox[{"\[Beta]", "+", "\[Sigma]y"}], ")"}]}]}], 
    RowBox[{"2", " ", "q"}]], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"pA", " ", "\[Beta]"}], "-", 
     RowBox[{"\[Beta]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Y", " ", "\[Alpha]"}], "+", "\[Sigma]x"}], ")"}]}], "+", 
     RowBox[{"z", " ", 
      RowBox[{"(", 
       RowBox[{"\[Beta]", "+", "\[Sigma]y"}], ")"}]}]}], 
    RowBox[{"2", " ", "z"}]]}], "}"}]], "Output",
 CellChangeTimes->{{3.9620475958111477`*^9, 3.962047616309826*^9}, 
   3.962051119632761*^9, 3.962133502746531*^9, 3.9625915725348854`*^9},
 CellLabel->"Out[21]=",ExpressionUUID->"df7fa3ec-b62b-5243-87a3-1814e4885d4e"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Best Responses - Eqm", "Section",
 CellChangeTimes->{{3.9625915448302155`*^9, 
  3.9625915590095234`*^9}},ExpressionUUID->"5aa71884-0e7a-a946-ad48-\
b94f97a2292c"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"{", 
   RowBox[{
    RowBox[{"pAeq", "[", 
     RowBox[{
     "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "z_", 
      ",", "q_", ",", "\[Beta]_"}], "]"}], ",", 
    RowBox[{"rAeq", "[", 
     RowBox[{
     "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "z_", 
      ",", "q_", ",", "\[Beta]_"}], "]"}], ",", 
    RowBox[{"pBeq", "[", 
     RowBox[{
     "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "z_", 
      ",", "q_", ",", "\[Beta]_"}], "]"}], ",", 
    RowBox[{"rBeq", "[", 
     RowBox[{
     "\[Sigma]x_", ",", "\[Sigma]y_", ",", "\[Alpha]_", ",", "Y_", ",", "z_", 
      ",", "q_", ",", "\[Beta]_"}], "]"}]}], "}"}], "=", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"pA", ",", "rA", ",", "pB", ",", "rB"}], "}"}], "/.", 
   RowBox[{
    RowBox[{"FullSimplify", "[", 
     RowBox[{"Solve", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"pA", "==", 
         RowBox[{"pABR", "[", 
          RowBox[{
          "\[Sigma]x", ",", "\[Sigma]y", ",", "\[Alpha]", ",", "Y", ",", "pA",
            ",", "pB", ",", "z", ",", "q", ",", "\[Beta]", ",", "rA", ",", 
           "rB"}], "]"}]}], "&&", 
        RowBox[{"rA", "==", 
         RowBox[{"rABR", "[", 
          RowBox[{
          "\[Sigma]x", ",", "\[Sigma]y", ",", "\[Alpha]", ",", "Y", ",", "pA",
            ",", "pB", ",", "z", ",", "q", ",", "\[Beta]", ",", "rA", ",", 
           "rB"}], "]"}]}], "&&", 
        RowBox[{"pB", "==", 
         RowBox[{"pBBR", "[", 
          RowBox[{
          "\[Sigma]x", ",", "\[Sigma]y", ",", "\[Alpha]", ",", "Y", ",", "pA",
            ",", "pB", ",", "z", ",", "q", ",", "\[Beta]", ",", "rA", ",", 
           "rB"}], "]"}]}], "&&", 
        RowBox[{"rB", "==", 
         RowBox[{"rBBR", "[", 
          RowBox[{
          "\[Sigma]x", ",", "\[Sigma]y", ",", "\[Alpha]", ",", "Y", ",", "pA",
            ",", "pB", ",", "z", ",", "q", ",", "\[Beta]", ",", "rA", ",", 
           "rB"}], "]"}]}]}], ",", 
       RowBox[{"{", 
        RowBox[{"pA", ",", "rA", ",", "pB", ",", "rB"}], "}"}]}], "]"}], 
     "]"}], "[", 
    RowBox[{"[", "1", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.96213350730949*^9, 3.962133650491932*^9}, {
  3.9621337092159986`*^9, 3.9621337596145782`*^9}},
 CellLabel->"In[22]:=",ExpressionUUID->"66cf4a3a-daf2-1b47-84e2-8c8bb96752a1"],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   FractionBox[
    RowBox[{
     RowBox[{"2", " ", "q", " ", "z", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Y", " ", "\[Alpha]"}], "+", "\[Sigma]x"}], ")"}]}], "-", 
     RowBox[{"\[Alpha]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Beta]", " ", 
         RowBox[{"(", 
          RowBox[{"z", "+", 
           RowBox[{"Y", " ", "\[Alpha]"}], "+", "\[Sigma]x"}], ")"}]}], "+", 
        RowBox[{"z", " ", "\[Sigma]y"}]}], ")"}]}]}], 
    RowBox[{
     RowBox[{"4", " ", "q", " ", "z"}], "-", 
     RowBox[{"\[Alpha]", " ", "\[Beta]"}]}]], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{"q", " ", "\[Beta]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Y", " ", "\[Alpha]"}], "+", "\[Sigma]x"}], ")"}]}], "-", 
      RowBox[{"2", " ", "q", " ", "z", " ", 
       RowBox[{"(", 
        RowBox[{"\[Beta]", "+", "\[Sigma]y"}], ")"}]}], "+", 
      RowBox[{"\[Alpha]", " ", "\[Beta]", " ", 
       RowBox[{"(", 
        RowBox[{"\[Beta]", "+", "\[Sigma]y"}], ")"}]}]}], 
     RowBox[{
      RowBox[{"4", " ", "q", " ", "z"}], "-", 
      RowBox[{"\[Alpha]", " ", "\[Beta]"}]}]]}], ",", 
   FractionBox[
    RowBox[{
     RowBox[{"2", " ", "q", " ", "z", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"Y", " ", "\[Alpha]"}], "+", "\[Sigma]x"}], ")"}]}], "-", 
     RowBox[{"\[Alpha]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"\[Beta]", " ", 
         RowBox[{"(", 
          RowBox[{"z", "+", 
           RowBox[{"Y", " ", "\[Alpha]"}], "+", "\[Sigma]x"}], ")"}]}], "+", 
        RowBox[{"z", " ", "\[Sigma]y"}]}], ")"}]}]}], 
    RowBox[{
     RowBox[{"4", " ", "q", " ", "z"}], "-", 
     RowBox[{"\[Alpha]", " ", "\[Beta]"}]}]], ",", 
   RowBox[{"-", 
    FractionBox[
     RowBox[{
      RowBox[{"q", " ", "\[Beta]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"Y", " ", "\[Alpha]"}], "+", "\[Sigma]x"}], ")"}]}], "-", 
      RowBox[{"2", " ", "q", " ", "z", " ", 
       RowBox[{"(", 
        RowBox[{"\[Beta]", "+", "\[Sigma]y"}], ")"}]}], "+", 
      RowBox[{"\[Alpha]", " ", "\[Beta]", " ", 
       RowBox[{"(", 
        RowBox[{"\[Beta]", "+", "\[Sigma]y"}], ")"}]}]}], 
     RowBox[{
      RowBox[{"4", " ", "q", " ", "z"}], "-", 
      RowBox[{"\[Alpha]", " ", "\[Beta]"}]}]]}]}], "}"}]], "Output",
 CellChangeTimes->{3.962133778644079*^9, 3.9625915726636295`*^9},
 CellLabel->"Out[22]=",ExpressionUUID->"3e60e297-4f2f-7746-9783-64a9cc2ecac5"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Specific Value test - the same as basic Model", "Section",
 CellChangeTimes->{{3.9625916214825363`*^9, 3.9625916287087135`*^9}, {
  3.9625920837466564`*^9, 
  3.9625921131851234`*^9}},ExpressionUUID->"1f14ad91-9be9-0e48-8d03-\
fe8811de16a2"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"pAeq", "[", 
  RowBox[{
  "1.6", ",", "1.6", " ", ",", "0.6", ",", "1", ",", "1.4", ",", "1.6", ",", 
   "1.5"}], "]"}]], "Input",
 CellChangeTimes->{{3.962133786909004*^9, 3.962133791104437*^9}, {
  3.9621340091945515`*^9, 3.962134035478319*^9}},
 CellLabel->"In[23]:=",ExpressionUUID->"64c68f57-c981-984b-966f-1743001c77b7"],

Cell[BoxData["0.6540942928039705`"], "Output",
 CellChangeTimes->{3.962134049792841*^9, 3.962591572694769*^9},
 CellLabel->"Out[23]=",ExpressionUUID->"0bbb7864-4ca2-d64f-ab1c-17d15a4f7bc0"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"rAeq", "[", 
  RowBox[{
  "1.6", ",", "1.6", " ", ",", "0.6", ",", "1", ",", "1.4", ",", "1.6", ",", 
   "1.5"}], "]"}]], "Input",
 CellChangeTimes->{{3.9621340714977846`*^9, 3.9621340816592617`*^9}},
 CellLabel->"In[24]:=",ExpressionUUID->"e6d50794-80b1-a542-8bcb-b7ea152d3840"],

Cell[BoxData["0.7218362282878412`"], "Output",
 CellChangeTimes->{3.962134084095038*^9, 3.9625915726997833`*^9},
 CellLabel->"Out[24]=",ExpressionUUID->"d75e8019-6d03-9742-a793-2321488d99d2"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"ProfitA", "[", 
  RowBox[{"1.6", ",", "1.6", ",", "0.6", ",", "1", ",", 
   RowBox[{"pAeq", "[", 
    RowBox[{
    "1.6", ",", "1.6", " ", ",", "0.6", ",", "1", ",", "1.4", ",", "1.6", ",",
      "1.5"}], "]"}], ",", 
   RowBox[{"pBeq", "[", 
    RowBox[{
    "1.6", ",", "1.6", " ", ",", "0.6", ",", "1", ",", "1.4", ",", "1.6", ",",
      "1.5"}], "]"}], ",", "1.4", ",", "1.6", ",", "1.5", ",", 
   RowBox[{"rAeq", "[", 
    RowBox[{
    "1.6", ",", "1.6", " ", ",", "0.6", ",", "1", ",", "1.4", ",", "1.6", ",",
      "1.5"}], "]"}], ",", 
   RowBox[{"rBeq", "[", 
    RowBox[{
    "1.6", ",", "1.6", " ", ",", "0.6", ",", "1", ",", "1.4", ",", "1.6", ",",
      "1.5"}], "]"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.9621341375644836`*^9, 3.962134274324555*^9}, {
  3.9625914838454647`*^9, 3.962591526625416*^9}},
 CellLabel->"In[25]:=",ExpressionUUID->"a24dab11-ece1-af43-b206-70be2dc91a74"],

Cell[BoxData["1.055230975270377`"], "Output",
 CellChangeTimes->{
  3.9621341909346466`*^9, {3.962134234880778*^9, 3.962134276215885*^9}, 
   3.9625915727351856`*^9},
 CellLabel->"Out[25]=",ExpressionUUID->"9f119cfd-2819-f84d-9cd5-2169e81dc0de"]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1086.857142857143, 544.2857142857142},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
FrontEndVersion->"14.0 for Microsoft Windows (64-bit) (2023\:5e7412\:670812\
\:65e5)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"96da922a-a610-fc40-ab3c-d564465382dd"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 162, 3, 67, "Section",ExpressionUUID->"fb080f1c-4f18-3842-ba34-612d7ce1e6f2"],
Cell[745, 27, 711, 17, 48, "Input",ExpressionUUID->"670565b0-2745-7940-9f25-1ce8412da6af"],
Cell[CellGroupData[{
Cell[1481, 48, 646, 15, 28, "Input",ExpressionUUID->"3109ff47-9610-f24b-b339-93226a554405"],
Cell[2130, 65, 512, 10, 32, "Output",ExpressionUUID->"3fe9a6d7-0189-a142-96a8-d8fcd4cd2124"]
}, Open  ]],
Cell[CellGroupData[{
Cell[2679, 80, 765, 16, 28, "Input",ExpressionUUID->"ecf37400-b462-1648-83b7-dc98d91d3794"],
Cell[3447, 98, 634, 15, 32, "Output",ExpressionUUID->"2a3abdf6-28ec-214c-8fa6-751c20d60a85"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4118, 118, 745, 16, 28, "Input",ExpressionUUID->"e73ed0d8-3fe4-ca40-82c3-d5ac7f8f9886"],
Cell[4866, 136, 509, 10, 32, "Output",ExpressionUUID->"554a8121-e9b1-564f-8b9d-f38fe757c262"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5412, 151, 543, 13, 28, "Input",ExpressionUUID->"99bdc6d7-0dc0-5946-bfdd-8369c67bc491"],
Cell[5958, 166, 556, 14, 32, "Output",ExpressionUUID->"b9878801-db59-504c-ba07-2af331534d09"]
}, Open  ]],
Cell[CellGroupData[{
Cell[6551, 185, 532, 14, 28, "Input",ExpressionUUID->"5d32904f-bbb5-8b4f-bb36-c2fa067cb57b"],
Cell[7086, 201, 424, 8, 32, "Output",ExpressionUUID->"599bd803-f8af-ef4b-9460-5a2d6fdb0280"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7547, 214, 534, 14, 28, "Input",ExpressionUUID->"92b8c5ca-2962-cc49-b1d3-b66eb82809d2"],
Cell[8084, 230, 418, 8, 32, "Output",ExpressionUUID->"8ec248ff-3e45-644a-8b0a-74482d5ac51b"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[8551, 244, 168, 3, 67, "Section",ExpressionUUID->"070dd501-7f3e-7147-aada-cca4da7bb3c6"],
Cell[CellGroupData[{
Cell[8744, 251, 1522, 31, 62, "Input",ExpressionUUID->"4aeeeca2-80de-ef43-b694-c81a806f132d"],
Cell[10269, 284, 507, 10, 48, "Output",ExpressionUUID->"6dfc819e-8682-8f43-ad5b-af676c0a48b1"]
}, Open  ]],
Cell[CellGroupData[{
Cell[10813, 299, 1080, 25, 62, "Input",ExpressionUUID->"d716037c-e532-c942-844f-e2904edaa450"],
Cell[11896, 326, 484, 9, 48, "Output",ExpressionUUID->"ac971304-2f23-3a49-ab59-998485c29b2b"]
}, Open  ]],
Cell[CellGroupData[{
Cell[12417, 340, 1251, 28, 62, "Input",ExpressionUUID->"0f77b9f7-6d6a-d24f-9e59-8212aea8fc7b"],
Cell[13671, 370, 485, 10, 51, "Output",ExpressionUUID->"3735066f-ddad-2746-b6de-1e3468d96e1c"]
}, Open  ]],
Cell[CellGroupData[{
Cell[14193, 385, 998, 24, 62, "Input",ExpressionUUID->"fac2a9da-1722-e446-b9f4-1085badaa6db"],
Cell[15194, 411, 368, 7, 51, "Output",ExpressionUUID->"d66d8da9-fff4-3047-87e9-7bc2fe42aaff"]
}, Open  ]],
Cell[CellGroupData[{
Cell[15599, 423, 3284, 78, 175, "Input",ExpressionUUID->"e24e975d-6f6d-1544-953e-3e72ac4b9069"],
Cell[18886, 503, 1957, 56, 50, "Output",ExpressionUUID->"fe46002a-3919-ca4f-97d3-cb66d0bd96e4"]
}, Open  ]],
Cell[20858, 562, 2001, 47, 86, "Input",ExpressionUUID->"eaa6156c-4c66-ef48-a8e7-e644ec1759e6"]
}, Open  ]],
Cell[CellGroupData[{
Cell[22896, 614, 152, 3, 67, "Section",ExpressionUUID->"f30bab89-ff7c-df45-aa3b-62a0842463ca"],
Cell[CellGroupData[{
Cell[23073, 621, 2191, 51, 116, "Input",ExpressionUUID->"287828de-3953-2148-ae4e-5eb78dbcdafa"],
Cell[25267, 674, 1255, 35, 53, "Output",ExpressionUUID->"a5bd1948-2afc-7f44-8635-82f69e71ae20"],
Cell[26525, 711, 1257, 35, 53, "Output",ExpressionUUID->"99599424-47a3-9949-979a-f670cec176d8"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27831, 752, 173, 3, 67, "Section",ExpressionUUID->"206c5056-07b9-b540-aee0-29b7d2987973"],
Cell[CellGroupData[{
Cell[28029, 759, 2615, 59, 140, "Input",ExpressionUUID->"5e8bcf18-5645-9d45-a88a-b5798abcbb00"],
Cell[30647, 820, 1020, 28, 50, "Output",ExpressionUUID->"ba44b71e-6a22-b249-a3cc-407d98609928"],
Cell[31670, 850, 1200, 33, 53, "Output",ExpressionUUID->"18bac0b4-f2cb-e641-8dd2-d7c4f4ec5579"]
}, Open  ]],
Cell[CellGroupData[{
Cell[32907, 888, 1664, 42, 102, "Input",ExpressionUUID->"ffd973ad-bde9-6242-ab8c-b055aca7147c"],
Cell[34574, 932, 976, 27, 50, "Output",ExpressionUUID->"df7fa3ec-b62b-5243-87a3-1814e4885d4e"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[35599, 965, 169, 3, 67, "Section",ExpressionUUID->"5aa71884-0e7a-a946-ad48-b94f97a2292c"],
Cell[CellGroupData[{
Cell[35793, 972, 2369, 58, 121, "Input",ExpressionUUID->"66cf4a3a-daf2-1b47-84e2-8c8bb96752a1"],
Cell[38165, 1032, 2508, 70, 90, "Output",ExpressionUUID->"3e60e297-4f2f-7746-9783-64a9cc2ecac5"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[40722, 1108, 247, 4, 67, "Section",ExpressionUUID->"1f14ad91-9be9-0e48-8d03-fe8811de16a2"],
Cell[CellGroupData[{
Cell[40994, 1116, 350, 7, 28, "Input",ExpressionUUID->"64c68f57-c981-984b-966f-1743001c77b7"],
Cell[41347, 1125, 189, 2, 32, "Output",ExpressionUUID->"0bbb7864-4ca2-d64f-ab1c-17d15a4f7bc0"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41573, 1132, 303, 6, 28, "Input",ExpressionUUID->"e6d50794-80b1-a542-8bcb-b7ea152d3840"],
Cell[41879, 1140, 191, 2, 32, "Output",ExpressionUUID->"d75e8019-6d03-9742-a793-2321488d99d2"]
}, Open  ]],
Cell[CellGroupData[{
Cell[42107, 1147, 923, 21, 48, "Input",ExpressionUUID->"a24dab11-ece1-af43-b206-70be2dc91a74"],
Cell[43033, 1170, 245, 4, 32, "Output",ExpressionUUID->"9f119cfd-2819-f84d-9cd5-2169e81dc0de"]
}, Open  ]]
}, Open  ]]
}
]
*)

